home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / aa_m68k_Only / NXLogo / NXLogoLibrary / cngonrotrnd.lg < prev    next >
Encoding:
Text File  |  1992-07-09  |  155 b   |  8 lines
  1. to cngonrotrnd :n :rad :dist :angle :dec
  2.  ht
  3.  rt :dec
  4.  if :rad <:dist [stop]
  5.  cngon :n (:rad) 
  6.  cngonrot :n (:rad-rnd*:dist) :dist (:angle-:dec) :dec
  7.  end
  8.